<?php
App::import('Vendor','xtcpdf'); 
$pdf = new XTCPDF();
$textfont = 'freesans'; // looks better, finer, and more condensed than 'dejavusans'

$pdf->SetAuthor("INPSASEL");
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(true);

    // set default header data
//$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, "BENLLISOFT", PDF_HEADER_STRING);

// set header and footer fonts
//$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
//$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));

// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);

//set margins
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
//$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);

//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
// Now you position and print your page content
// example: 
$pdf->SetTextColor(0, 0, 0);
$pdf->SetFont($textfont,'B',12);
$pdf->AddPage();
$pdf->Cell(0,5, "RESULTADOS DE EVALUACIÓN PSICOLOGICA NRO. $dato_id",'',1,'C');

//pr($respuestas);
//pr($datos);

$pdf->Ln();
$pdf->Ln();
$pdf->SetFont($textfont,'B',11);
$pdf->Cell(0, 5, "DATOS DE IDENTIFICACIÓN DEL TRABAJADOR/A", 0, 1, 'L');
$pdf->Ln();
$pdf->SetFont($textfont,'',11);
$nombre = $datos['Dato']['nombre'];
$lugar_nacimiento = $datos['Dato']['lugar_nacimiento'];
$fecha_nacimiento = $datos['Dato']['fecha_nacimiento'];
$cedula = $datos['Dato']['cedula_trabajador'];
$edad = $datos['Dato']['edad'];
if($datos['Dato']['sexo'] == 1) $genero = "Masculino";
if($datos['Dato']['sexo'] == 0) $genero = "Femenino";
$domicilio = $datos['Dato']['domicilio'];
$nivel_educativo = $datos['NivelEducativo']['name'];
$cargo = $datos['Dato']['cargo'];
$tiempo_cargo = $datos['Dato']['tiempo_cargo'];

$pdf->Cell(0, 5, "Nombres y Apellidos: ".$nombre, 0, 1, 'L');
$pdf->Cell(0, 5, "Cédula de identidad: ".$cedula, 0, 1, 'L');
$pdf->Cell(0, 5, "Género: ".$genero, 0, 1, 'L');
$pdf->Cell(0, 5, "Edad: ".$edad." años.", 0, 1, 'L');
$pdf->Cell(0, 5, "Natural de: ".$lugar_nacimiento, 0, 1, 'L');
$pdf->Cell(0, 5, "Actual domicilio: ".$domicilio, 0, 1, 'L');
$pdf->Cell(0, 5, "Nivel Educativo: ".$nivel_educativo, 0, 1, 'L');

$pdf->Ln();
$pdf->SetFont($textfont,'B',11);
$pdf->Cell(0, 5, "RESULTADOS DE PRUEBAS PSICOLÓGICAS", 0, 1, 'C');
$pdf->Ln();
$pdf->SetFont($textfont,'B',11);
$pdf->Cell(0, 5, "Cuestionario BOAR", 0, 1, 'L');
$pdf->Ln();
$pdf->SetFont($textfont,'',11);
	//pr($respuestas);
$boar = split(',', $respuestas[0]['Respuesta']['respuesta']);
$suma_boar = 0;
foreach($boar as $index => $value){
	$suma_boar += $value; 
}
if($suma_boar >= 50 && $suma_boar < 83) $result_boar = "BOAR bajo";
if($suma_boar >= 83 && $suma_boar < 93) $result_boar =  "BOAR medio";
if($suma_boar >= 93) $result_boar =  "BOAR alto";  

$pdf->Cell(0, 5, "Resultado obtenido: ".$suma_boar, 0, 1, 'L');
$pdf->Cell(0, 5, "Interpretación: ".$result_boar, 0, 1, 'L');

$pdf->Ln();
$pdf->SetFont($textfont,'B',11);
$pdf->Cell(0, 5, "Cuestionario PNF (Psychologisch-Neurologischeò Fragebogen)", 0, 1, 'L');
$pdf->Ln();
$pdf->SetFont($textfont,'',11);

//RESULTADOS PNF

$pnf = split(',', $respuestas[1]['Respuesta']['respuesta']);
$suma_pnf = $PN = $N = $A = $E = $K = 0;
$vec_pn = array(2=>2, 4=>4, 6=>6, 12=>12, 14=>14, 16=>16, 22=>22, 24=>24, 26=>26, 30=>30, 32=>32, 34=>34, 36=>36);
$vec_n = array(1=>1, 8=>8, 11=>11, 18=>18, 21=>21, 28=>28, 31=>31, 38=>38);
$vec_a = array(3=>3, 9=>9, 13=>13, 19=>19, 23=>23, 29=>29, 33=>33);
$vec_e = array(5=>5, 15=>15, 25=>25, 35=>35);
$vec_k = array(7=>7, 10=>10, 17=>17, 20=>20, 27=>27, 37=>37);
foreach ($pnf as $index => $value){
	$valor = ($value - 1);
	$suma_pnf += $valor;
	$aux = ($index + 1);
	//echo "$aux => $valor <br/>";
	if(array_key_exists($aux, $vec_pn)) $PN += $valor; 
	if(array_key_exists($aux, $vec_n)) $N += $valor;
	if(array_key_exists($aux, $vec_a)) $A += $valor;
	if(array_key_exists($aux, $vec_e)) $E += $valor;
	if(array_key_exists($aux, $vec_k)) $K += $valor;
}
$suma_pnf = $PN + $N + $A + $E + $K;

$sexo = $respuestas[1]['Dato']['sexo'];
$edad = $respuestas[1]['Dato']['edad'];
//echo "$sexo - $edad";
switch($sexo){
	case 1:
		if($edad <= 20 && $PN <= 11) echo " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($PN <= 11)) $PN_result =  " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($PN <= 12)) $PN_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($PN <= 13)) $PN_result = " DISCRETO(1)";
		if(($edad >= 51) && ($PN <= 14)) $PN_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($PN >= 12 && $PN <= 17)) echo " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($PN >= 12 && $PN <= 17)) $PN_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($PN >= 13 && $PN <= 18)) $PN_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($PN >= 14 && $PN <= 18)) $PN_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($PN >= 15 && $PN <= 18)) $PN_result = " MODERADO(2)";
		
		if($edad <= 20 && ($PN >= 18)) echo " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($PN >= 18)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($PN >= 19)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($PN >= 19)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($PN >= 19)) $PN_result = " SOBRESALIENTE(3)";
		break;
	case 0:
		if($edad <= 20 && $PN <= 16) echo " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($PN <= 16)) $PN_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($PN <= 17)) $PN_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($PN <= 18)) $PN_result = " DISCRETO(1)";
		if(($edad >= 51) && ($PN <= 19)) $PN_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($PN >= 17 && $PN <= 19)) $PN_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($PN >= 17 && $PN <= 20)) $PN_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($PN >= 18 && $PN <= 22)) $PN_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($PN >= 19 && $PN <= 23)) $PN_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($PN >= 20 && $PN <= 24)) $PN_result= " MODERADO(2)";
		
		if($edad <= 20 && ($PN >= 20)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($PN >= 21)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($PN >= 23)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($PN >= 24)) $PN_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($PN >= 25)) $PN_result = " SOBRESALIENTE(3)";
		break;
}
$pdf->Cell(0, 5, "PN (Inestabilidad Psiconeurovegetativo): $PN - ".$PN_result, 0, 1, 'L');

switch($sexo){
	case 1:
		if($edad <= 20 && $N <= 3) $N_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($N <= 4)) $N_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($N <= 4)) $N_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($N <= 5)) $N_result = " DISCRETO(1)";
		if(($edad >= 51) && ($N <= 6)) $N_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($N >= 4 && $N <= 5)) $N_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($N >= 5 && $N <= 6)) $N_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($N >= 5 && $N <= 8)) $N_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($N >= 6 && $N <= 9)) $N_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($N >= 7 && $N <= 10)) $N_result = " MODERADO(2)";
		
		if($edad <= 20 && ($N >= 6)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($N >= 7)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($N >= 9)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($N >= 10)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($N >= 11)) $N_result = " SOBRESALIENTE(3)";
		break;
	case 0:
		if($edad <= 20 && $N <= 5) $N_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($N <= 6)) $N_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($N <= 7)) $N_result= " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($N <= 8)) $N_result = " DISCRETO(1)";
		if(($edad >= 51) && ($N <= 9)) $N_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($N >= 6)) $N_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($N >= 7 && $N <= 8)) $N_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($N >= 8 && $N <= 10)) $N_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($N >= 9 && $N <= 12)) $N_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($N >= 10 && $N <= 14)) $N_result = " MODERADO(2)";
		
		if($edad <= 20 && ($N >= 7)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($N >= 9)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($N >= 11)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($N >= 13)) $N_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($N >= 15)) $N_result = " SOBRESALIENTE(3)";
		break;
	}

$pdf->Cell(0, 5, "N (Síntomas Neurológicos): $N - ".$N_result, 0, 1, 'L');

switch($sexo){
	case 1:
		if($edad <= 20 && $A <= 4) $A_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($A <= 4)) $A_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($A <= 4)) $A_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($A <= 4)) $A_result = " DISCRETO(1)";
		if(($edad >= 51) && ($A <= 4)) $A_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($A >= 5 && $A <= 7)) $A_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($A >= 5 && $A <= 7)) $A_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($A >= 5 && $A <= 7)) $A_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($A >= 5 && $A <= 7)) $A_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($A >= 5 && $A <= 7)) $A_result = " MODERADO(2)";
		
		if($edad <= 20 && ($A >= 8)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($A >= 8)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($A >= 8)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($A >= 8)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($A >= 8)) $A_result = " SOBRESALIENTE(3)";
		break;
	case 0:
		if($edad <= 20 && $A <= 6) $A_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($A <= 6)) $A_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($A <= 6)) $A_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($A <= 6)) $A_result = " DISCRETO(1)";
		if(($edad >= 51) && ($A <= 6)) $A_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($A >= 7 && $A <=9)) $A_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($A >= 7 && $A <= 9)) $A_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($A >= 7 && $A <= 8)) $A_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($A >= 7 && $A <= 8)) $A_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($A >= 7 && $A <= 8)) $A_result = " MODERADO(2)";
		
		if($edad <= 20 && ($A >= 10)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($A >= 10)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($A >= 9)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($A >= 9)) $A_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($A >= 9)) $A_result = " SOBRESALIENTE(3)";
		break;
}

$pdf->Cell(0, 5, "A (Astenia): $A - ".$A_result, 0, 1, 'L');

switch($sexo){
	case 1:
		if($edad <= 20 && $E <= 3) $E_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($E <= 4)) $E_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($E <= 4)) $E_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($E <= 4)) $E_result = " DISCRETO(1)";
		if(($edad >= 51) && ($E <= 4)) $E_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($E >= 4 && $E <= 5)) $E_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($E >= 5 && $E <= 6)) $E_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($E >= 5 && $E <= 6)) $E_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($E >= 5 && $E <= 6)) $E_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($E >= 5 && $E <= 7)) $E_result = " MODERADO(2)";
		
		if($edad <= 20 && ($E >= 6)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($E >= 7)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($E >= 7)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($E >= 7)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($E >= 8)) $E_result = " SOBRESALIENTE(3)";
		break;
	case 0:
		if($edad <= 20 && $E <= 7) $E_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($E <= 6)) $E_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($E <= 5)) $E_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($E <= 5)) $E_result = " DISCRETO(1)";
		if(($edad >= 51) && ($E <= 4)) $E_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($E >= 8 && $E <=10)) $E_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($E >= 7 && $E <= 9)) $E_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($E >= 6 && $E <= 8)) $E_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($E >= 6 && $E <= 7)) $E_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($E >= 5 && $E <= 6)) $E_result = " MODERADO(2)";
		
		if($edad <= 20 && ($E >= 11)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($E >= 10)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($E >= 9)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($E >= 8)) $E_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($E >= 7)) $E_result = " SOBRESALIENTE(3)";
		break;
}

$pdf->Cell(0, 5, "E (Irritabilidad): $E - ".$E_result, 0, 1, 'L');

switch($sexo){
	case 1:
		if($edad <= 20 && $K <= 4) $K_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($K <= 4)) $K_result =  " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($K <= 4)) $K_result =  " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($K <= 4)) $K_result =  " DISCRETO(1)";
		if(($edad >= 51) && ($K <= 4)) $K_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($K >= 5 && $K <= 7)) $K_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($K >= 5 && $K <= 7)) $K_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($K >= 5 && $K <= 7)) $K_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($K >= 5 && $K <= 7)) $K_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($K >= 5 && $K <= 7)) $K_result = " MODERADO(2)";
		
		if($edad <= 20 && ($K >= 8)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($K >= 8)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($K >= 8)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($K >= 8)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($K >= 8)) $K_result = " SOBRESALIENTE(3)";
		break;
	case 0:
		if($edad <= 20 && $K <= 5) $K_result = " DISCRETO(1)";
		if(($edad >= 21 && $edad <= 30) && ($K <= 5)) $K_result = " DISCRETO(1)";
		if(($edad >= 31 && $edad <= 40) && ($K <= 5)) $K_result = " DISCRETO(1)";
		if(($edad >= 41 && $edad <= 50) && ($K <= 5)) $K_result = " DISCRETO(1)";
		if(($edad >= 51) && ($K <= 5)) $K_result = " DISCRETO(1)";
		
		if($edad <= 20 && ($K >= 6 && $K <=7)) $K_result = " MODERADO(2)";
		if(($edad >= 21 && $edad <= 30) &&  ($K >= 6 && $K <= 8)) $K_result = " MODERADO(2)";
		if(($edad >= 31 && $edad <= 40) &&  ($K >= 6 && $K <= 8)) $K_result = " MODERADO(2)";
		if(($edad >= 41 && $edad <= 50) &&  ($K >= 6 && $K <= 8)) $K_result = " MODERADO(2)";
		if(($edad >= 51) &&  ($K >= 6 && $K <= 9)) $K_result = " MODERADO(2)";
		
		if($edad <= 20 && ($K >= 8)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 21 && $edad <= 30) &&  ($K >= 9)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 31 && $edad <= 40) &&  ($K >= 9)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 41 && $edad <= 50) &&  ($K >= 9)) $K_result = " SOBRESALIENTE(3)";
		if(($edad >= 51) &&  ($K >= 10)) $K_result = " SOBRESALIENTE(3)";
		break;
}

$pdf->Cell(0, 5, "K (Concentración y Memoria): $K - ".$K_result, 0, 1, 'L');
$pdf->Cell(0, 5, "Total: $suma_pnf - ", 0, 1, 'L');

$pdf->Ln();
$pdf->SetFont($textfont,'B',11);
$pdf->Cell(0, 5, "Cuestionario de Síntomas Subjetivos", 0, 1, 'L');
$pdf->Ln();
$pdf->SetFont($textfont,'',11);
$css = split(',', $respuestas[2]['Respuesta']['respuesta']);
$suma_css = $labilidad = $fatiga = $extroversion = $neuroticismo = 0;
$vec1 = array(1=>1, 2=>2, 5=>5, 8=>8, 12=>12, 16=>16, 20=>20, 22=>22, 24=>24, 26=>26, 28=>28, 32=>32, 36=>36, 40=>40, 42=>42, 44=>44, 46=>46);
$vec2 = array(3=>3, 6=>6, 7=>7, 10=>10, 14=>14, 18=>18, 21=>21, 23=>23, 25=>25, 27=>27, 30=>30, 34=>34, 38=>38, 41=>41, 43=>43, 45=>45, 47=>47);
$vec3 = array(4=>4, 9=>9, 13=>13, 17=>17, 29=>29, 33=>33, 37=>37);
$vec4 = array(11=>11, 15=>15, 19=>19, 31=>31, 35=>35, 39=>39);

foreach($css as $index => $value){
	$suma_css += $value;
	$aux = ($index + 1);
	if(array_key_exists($aux, $vec1)) $labilidad += $value;
	if(array_key_exists($aux, $vec2)) $fatiga += $value;
	if(array_key_exists($aux, $vec3)) $extroversion += $value;
	if(array_key_exists($aux, $vec4)) $neuroticismo += $value;
}

$pdf->Cell(0, 5, "Labilidad (>= 35 patológico): $labilidad", 0, 1, 'L');
$pdf->Cell(0, 5, "Fatiga con componentes somáticos (>= 35 patológico): $fatiga", 0, 1, 'L');
$pdf->Cell(0, 5, "Extroversión - Actividad (>= 14 patológico, perdida de la introversión): $extroversion", 0, 1, 'L');
$pdf->Cell(0, 5, "Neuroticismo (>= 10 índice de Neurotoxicidad): $neuroticismo", 0, 1, 'L');
$total_css =  $labilidad + $fatiga + $extroversion +  $neuroticismo;
$pdf->Cell(0, 5, "Total general (>= 85 Fuera del promedio): $total_css", 0, 1, 'L');

$pdf->Ln();
$pdf->SetFont($textfont,'B',11);
$pdf->Cell(0, 5, "Cuestionario Inventario de Personalidad de Eysenck", 0, 1, 'L');
$pdf->Ln();
$pdf->SetFont($textfont,'',11);
$epqra = split(',', $respuestas[3]['Respuesta']['respuesta']);
$npos = $nneg = $epos = $eneg = $lpos = $lneg = $ppos = $pneg = 0;
$vecn = array(1=>1, 9=>9, 11=>11, 14=>14, 18=>18, 21=>21);
$vece = array(2=>2, 4=>4, 13=>13, 15=>15, 20=>20, 23=>23);
$vecl = array(5=>5, 7=>7, 10=>10, 17=>17, 19=>19, 24=>24);
$vecp = array(3=>3, 6=>6, 8=>8, 12=>12, 16=>16, 22=>22);
$key = 0;
foreach($epqra as $index => $value){
	$key = $index + 1;
	$val = $value - 1;
	if(array_key_exists($key, $vecn)){
		//echo "($key => $val),";
		if(!$val) $npos++;
	}
	if(array_key_exists($key, $vece)){
		//echo "($key => $val),";
		switch($key){
			case 2:
				if(!$val) $epos++;
				break;
			case 4:
				if(!$val) $epos++;
				break;
			case 13:
				if(!$val) $epos++;
				break;
			case 15:
				if($val) $eneg++;
				break;
			case 20:
				if($val) $eneg++;
				break;
			case 23:
				if(!$val) $epos++;
				break;
		}
	}
	
	if(array_key_exists($key, $vecl)){
		//echo "($key => $val),";
		switch($key){
			case 5:
				if($val) $lneg++;
				break;
			case 7:
				if($val) $lneg++;
				break;
			case 10:
				if($val) $lneg++;
				break;
			case 17:
				if($val) $lneg++;
				break;
			case 19:
				if($val) $lneg++;
				break;
			case 24:
				if(!$val) $lpos++;
				break;
		}
	}
	
	if(array_key_exists($key, $vecp)){
		//echo "($key => $val),";
		switch($key){
			case 3:
				if($val) $pneg++;
				break;
			case 6:
				if(!$val) $ppos++;
				break;
			case 8:
				if(!$val) $ppos++;
				break;
			case 12:
				if(!$val) $ppos++;
				break;
			case 16:
				if($val) $pneg++;
				break;
			case 22:
				if($val) $pneg++;
				break;
		}
	}
	
}
$resultN = $npos + $nneg;
$resultE = $epos + $eneg;
$resultL = $lpos + $lneg;
$resultP = $ppos + $pneg;

$pdf->Cell(0, 5, "Neuroticismo: $resultN/6", 0, 1, 'L');
$pdf->Cell(0, 5, "Extroversión-Introversión: $resultE/6", 0, 1, 'L');
$pdf->Cell(0, 5, "Psicopatía: $resultL/6", 0, 1, 'L');
$pdf->Cell(0, 5, "Sinceridad: $resultP/6", 0, 1, 'L');

if(isset($respuestas[4])){
	$pdf->Ln();
	$pdf->SetFont($textfont,'B',11);
	$pdf->Cell(0, 5, "Test de Benton", 0, 1, 'L');
	$pdf->Ln();
	$pdf->SetFont($textfont,'',11);
	$opciones_benton = array(3=>'Deficiente', 4=>'Sub-normal-Fronterizo', 5=>'Promedio bajo', 6=>'Promedio', 7=>'Promedio alto');
	$pnt_benton = $respuestas[4]['Respuesta']['respuesta'];
	$pdf->Cell(0, 5, "Puntuación: $pnt_benton (".$opciones_benton[$pnt_benton].")", 0, 1, 'L');

}

echo $pdf->Output("resultados_cuestionario_ovallera_".$dato_id.".pdf", 'D');
?>
